home *** CD-ROM | disk | FTP | other *** search
/ Game Infinity - ECTS (UK) (Press Kit) / Game Infinity - ECTS (UK) (Press Kit).bin / data / adam-1.dxr / 00051.ls < prev    next >
Encoding:
Text File  |  2000-08-15  |  1.5 KB  |  69 lines
  1. global upnum, downnum, upname, downname, aa, aaa, bb, cc
  2.  
  3. on buttonclicked
  4.   spriteNum = the clickOn
  5.   upnum = the memberNum of sprite spriteNum
  6.   upname = member(upnum).name
  7.   downname = upname && "down"
  8.   downnum = the number of member downname
  9.   puppetSound("msdown")
  10.   set the memberNum of sprite spriteNum to downnum
  11.   updateStage()
  12.   repeat while the mouseDown
  13.     if rollover(spriteNum) then
  14.       set the memberNum of sprite spriteNum to downnum
  15.       set the cursor of sprite aaa to [103, 104]
  16.     else
  17.       set the memberNum of sprite spriteNum to upnum
  18.     end if
  19.     updateStage()
  20.   end repeat
  21.   if the memberNum of sprite spriteNum = downnum then
  22.     set the memberNum of sprite spriteNum to upnum
  23.     updateStage()
  24.     return 1
  25.   end if
  26.   return 0
  27. end
  28.  
  29. on roll
  30.   aa = the mouseMember
  31.   bb = word 2 of string(aa)
  32.   cc = integer(bb)
  33.   if rollover(aaa) then
  34.     sprite(aaa).memberNum = cc + 1
  35.     sprite(4).memberNum = aaa + 100
  36.     set the cursor of sprite aaa to [101, 102]
  37.     updateStage()
  38.   else
  39.     sprite(aaa).memberNum = cc
  40.     sprite(4).memberNum = 110
  41.     updateStage()
  42.   end if
  43.   updateStage()
  44. end
  45.  
  46. on roll2
  47.   aa = the mouseMember
  48.   bb = word 2 of string(aa)
  49.   cc = integer(bb)
  50.   if rollover(aaa) then
  51.     sprite(aaa).memberNum = cc + 1
  52.     set the cursor of sprite aaa to [101, 102]
  53.   else
  54.     sprite(aaa).memberNum = cc
  55.   end if
  56.   updateStage()
  57. end
  58.  
  59. on gogo
  60.   set the cursor of sprite aaa to [105, 106]
  61.   puppetSound("msup")
  62.   if aaa = 7 then
  63.     go(1, "adam")
  64.   end if
  65.   if aaa = 8 then
  66.     gotonetpage("http://www.adamsoft.com")
  67.   end if
  68. end
  69.